Computer Life: SuperPac/SuperPac (Computer Life Magazine)(Ziff-Davis)(1995).ISO/pc/demos/tracker/disk1/trkfield.sm_/trkfield.sm

INI File | 1995-03-29 | 4.5 KB | 509 lines

[ver]
    4
[sty]

[files]
[charset]
    82
    ANSI (Windows, IBM CP 1252)
[revisions]
    0
[prn]
    TI microLaser Pro 600\pcl5
[port]
    LPT1:
[lang]
    18
[desc]





    793907540
    5
    759441762
    145
    1
    0
    0
    0
    0






    1
[fopts]
    0
    1
    0
    0
[lnopts]
    2
    Body Text
    1
[docopts]
    5
    2
[GramStyle]

[tag]
    Body Text
    2
    [fnt]
        Arial
        240
        0
        16384
    [algn]
        1
        2
        215
        0
        0
    [spc]
        33
        272
        2
        0
        0
        2
        100
    [brk]
        4
    [line]
        8
        0
        2
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        2
        1
        0
        16
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Body Text
    0
    0
[tag]
    Body Single
    3
    [fnt]
        Times New Roman
        240
        0
        49152
    [algn]
        1
        2
        0
        0
        0
    [spc]
        33
        272
        2
        0
        0
        2
        100
    [brk]
        4
    [line]
        8
        0
        2
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        0

        0
        2
        1
        0
        0
        0
        0
    [nfmt]
        280
        1
        2
        .
        ,
        $
    Body Single
    0
    0
[tag]
    Function
    4
    [fnt]
        Arial
        240
        0
        16385
    [algn]
        1
        2
        0
        0
        0
    [spc]
        33
        272
        2
        0
        0
        2
        100
    [brk]
        68
    [line]
        8
        0
        2
        0
        1
        1
        1
        10
        10
        1
    [spec]
        0
        1

        0
        2
        1
        0
        0
        0
        0
    [nfmt]
        272
        1
        3
        .
        ,
        $
    Body Text
    0
    0
[lay]
    Standard
    516
    [rght]
        16834
        11907
        2
        1440
        1440
        2
        1440
        1440
        0
        1
        0
        1
        0
        2
        1
        1440
        10465
        12
        1
        720
        1
        1440
        1
        2160
        1
        2880
        1
        3600
        1
        4320
        1
        5040
        1
        5760
        1
        6480
        1
        7200
        1
        7920
        1
        8640
    [hrght]
    [lyfrm]
        1
        11200
        0
        0
        11907
        1440
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        1
    [frmlay]
        1440
        11907
        1
        1440
        73
        2
        793
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10465
        1
        3
        9360
    [txt]
>
    [frght]
    [lyfrm]
        1
        13248
        0
        15394
        11907
        16834
        0
        1
        3
        1 0 0 0 0 0 0
        0
        0
        2
    [frmlay]
        16834
        11907
        1
        1440
        793
        2
        15467
        1440
        0
        1
        0
        1
        1
        0
        1
        1440
        10465
        2
        2
        4680
        3
        9360
    [txt]
>
[elay]
[l1]
    0
[pg]
    1
    40 0 0 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
[edoc]
<:#284,9025>Function TrackerFields()

<:#284,9025>

<:#284,9025>' Build listbox entries

<:#284,9025>

<:#284,9025>ddecon = DDEInitiate("TCONTACT", "TRKINFO")

<:#284,9025>for i = 1 to 76

<:#284,9025>    a = FormatNum$("","",0,i)

<+B><:#284,9025>    b = strcat$("fieldname", a)

<:#284,9025>    name = DDEReceive$(ddecon, b)

<:#284,9025>    entry = strcat$(a, ". ", name)

<:#284,9025>    FillList(entry)

<:#284,9025>next

<:#284,9025>DDETerminate(ddecon)

<:#284,9025>

<:#284,9025>' Display dialog box

<:#284,9025>

<:#284,9025>box = DialogBox(".", "tracker")

<:#284,9025>if box <<<;> 1

<:#284,9025>    Exit function

<:#284,9025>endif

<:#284,9025>

<:#284,9025>' Insert link

<:#284,9025>

<:#284,9025>a = GetDialogField$(9000)

<:#284,9025>n = strchr(1, a, ".")

<:#284,9025>n = n+(-1)

<:#284,9025>fieldno = Left$(a, n)

<:#284,9025>field = strcat$("fieldinfo", fieldno)

<:#284,9025>DDELinks(5 1 0 ""  "TCONTACT"  "TRKINFO"  field   )

<:#284,9025>

<:#284,9025>End function

<:#284,9025>

<:#284,9025>DIALOG    tracker

-2134376448    3    69    31    243    144    ""    ""    "Tracker Version 2 Fields"

<:#284,9025>FONT 8 "Helv"

<:#284,9025>5    5    232    117    9000    1352728577    "listbox"    ""    0

<:#284,9025>50    126    40    14    1    1342373889    "button"    "OK"    0

<:#284,9025>144    126    40    14    2    1342373888    "button"    "Cancel"    0

<:#284,9025>END DIALOG

<:#284,9025>

>

[Embedded]
00003739
>
[macsum] 2
TrackerFields 0 0 11 0
tracker 554 0 -1 32
[macse]
14 TrackerFields
0 8 "TCONTACT" "TRKINFO"
13
8 1
5 1
8 2
5 76
6 2
18 2
12 00000139
10 00000285
5 1
6 2
3 0
8 2
10 00000063
0 19 "" "" 0 "{2}"
13
8 3
0 16 "fieldname" "{3}"
13
8 4
0 10 "{1}" "{4}"
13
8 5
0 16 "{3}" ". " "{5}"
13
8 6
0 25 "{6}"
10 00000106
0 9 "{1}"
0 26 "." "tracker"
13
8 7
6 7
5 1
18 1
11 00000366
6 0
15
9
0 27 9000
13
8 3
0 13 1 "{3}" "."
13
8 8
6 8
5 -1
3 0
8 8
0 806 "{3}" "{8}"
13
8 9
0 16 "fieldinfo" "{9}"
13
8 10
2 115 1 5 1 0 "" "TCONTACT" "TRKINFO" "{10}"
6 0
15
9
DIALOG tracker
-2134376448 3 69 31 243 144 "" "" "Tracker Version 2 Fields"
FONT 8 "Helv"
5 5 232 117 9000 1352728577 "listbox" "" 0
50 126 40 14 1 1342373889 "button" "OK" 0
144 126 40 14 2 1342373888 "button" "Cancel" 0
00003764